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v04- 71983 90: 33: 1g RMS.SRCISTASW.MAR; 1 ’ (1) | 
00000001 00 1 STASWITCH=1 ;GENERATE STAND-ALONE RMS CODE FOR 
4 : : USE IN STAND-ALONE BACKUP, ET. AL. 
0 IF DF Baer en G0 
000 : $BEGIN STAPRFLNM,0O0,RMSRMSO,<PROCESS FILE NAME> 
0000 LFF ;STASWITCH 
000 4 SBEGIN RMOPRFLNM,033,RMSRMSO,<PROCESS FILE NAME> 
000 5 -ENDC ;STASWITCH 
000 oF ; 
4 8 a Wheeeereencesrereesscenereneseasenencneeneseesooncccsenssererseqoneseseboncs 
0 9 ;* & 
8308 10 ;* COPYRIGHT (c) 1978, 1980, 1982, 1984 * 
0 11 ;* DIGITAL EQUIPMENT EORPORATION, MAYNARD. MASSACHUSETTS. * 
BO \¢ :* ALL RIGHTS RESERVED. * 
3 t 
0000 14 ;* THIS SOFTWARE IS FURNISHED UNDER A LSSENse AND MAY BE USED AND oor ane * 
0000 15 ;* ONLY IN ACCORDANCE WITH THE TERMS LICENSE AND WITH THE * 
0000 16 ;* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY H * 
0000 17 ;* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
0000 18 ;* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY e 
44464 1} ;* TRANSFERRED. * 
3* ® 
0000 1 3¢ He 3 INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
0000 ¢ ;* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
44 $7 ;* CORPORATION. # 
3* ® 
0000 25 ;* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
0000 26 ;* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
0000 27 ;* * 
0000 28 ;* * 
0000 29 EPSAHSESORESENSSENEH SEHR RAH RNR ES EARLS ORE RTE HERON RES SEN SHER TRIER ORIEN INTeF 
30 ° 
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1 =3 o=18 r 90: 3: is AX/VMS Macro V04-00 


Pa 
RMS. SRCJRMOPRFLNM. MAR: 1 ™ 


e 
Facility: RMs32 


Abstract: 
This routine performs RMS32 file name processing. 


Environment: 
Star processor running Starlet exec. 


Author: L. F. Laverdure Creation Date: 4-JAN-1977 


Modified By: 


V03-033 RASO329 Ron Schaefer 31-Jul-1984 
Fix RMSPRFLNM to set GET access internally if EXE access is 
ALB or 3 this is needed for execute-only command procedures. 


V03-032 RASO296 Ron Schaefer wie 
Add secondary device name item code to $GET 
This name is returned in NAMST_DVI if the device is spooled. 


V03-031 RASO289 Ron Schaefer G-Aprn 1906 
Add notranslation flag to call to $SASSIGN; ange 
to WLD error when wildcard detected. 


V03-030 RAS0268 Ron Schaefer 12-Mar-1984 
Move searchlist loop decision to caller of RMSPRFLNMCALT). 
V03-029 DGB0026 Donald G. Blair 11-Mar-1984 


Change BSBW to JSB to fix broken branch. 


V03-028 RASO242 Ron Schaefer 23-Jan-1984 
Fix aypctects caused by Lack of a fwa (valid R10) 
on calls to RM$PRFLNM or error returns from RMS$XPFN. 


V03-027 RAS0229 n Schaefer 5-Jan-1984 
Return an error. A {SOPEN/ SCREATE specifies a directory 
containing ° fter oupensten. Related file 
processing will resolve ellipses normally. 


v03-026 Ras0ees Ron Schaefer 20-Dec-1983 
Fix stream PPF file with FTN carriage control Root sik 
eliminate port tne of NAMSV_CNCL_DEV and NAMS$V 
in RMSASSIGN as this is now done by AMSEXPS TRING. 


v03-025 RASO212 Ron Schaefer 15-Nov-1983 
Fix version/implementation skew in RMSASSIGN. by 
conditionalizing this module for both RMS and 
Stand-alone BACKUP on the STASWITCH parameter. 


V03-024 RASO0209 Ron Schaefer 4-Nov-1983 
Clean-up returned device characteristics b yg rik 
a routine RMSRET_DEV_CHAR to do a uniform tab. 


v03-023 RASO198 sche 6-0c t-1983 
Change RMSPRFLNMEALT roy to not have an input parameter. 
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STAPRFLNM PROCESS FILE NAME 16-SEP-1984 00:3 AX/VMS Macro V04-00 
v04-0 “SEP=- ets 90: 39: 8 FRMS SRCJRMOPRFLNM.MAR; 1 
00 v03-022 or Stephen H. Zalewski 12-Se = -1983 
09 a new itemcode to the itemcode List for the $GETDVI. 
0 V03-021 RASO183 n Schaefer 2-Sep-1983 
$ Make ccarebitate” be nenmw) Lécord characters. 
$0 v03-020 KBT0560 Keith B. Thompson 21-Jul-1983 
o6 Set name block Pp Senha 
00 v03-019 guzoge} Step Zalewski 26-Jun-1983 
$ Get full device be gh a ay name) from GETDVI. 
8 v03-018 ceTeoss Keith B. Thompson 6-Jun-1983 
4 Turn on search List 
00 v03-017 KBT0515 Keith B. Thompson 23-May-1983 
+4 RMSXPFN moved 
00 v03-016 wing Bo th B. Thompson 5-May-1983 
00 Use RMSDEALLOCATE™ ‘oh add some search List stuff and 
4 redo rooted directories 
00 V03-015 RASO146 Ron Schaefer 18-Apr-1983 
00 Fix FWASC_FIBLEN assume to have slightly more 


biteteeast” for ACP FIB Length changes. 


v03-014 posesss Ron Schaefer 11-Apr-1983 
ix device name moe length to be 16, and change 
$GETDV! to SGETDVIW 


V03-013 RASO139 Ron Schaefer 24-Mar-1983 
Undo RASO129. Not returning the true RAT and RFM values 
‘bug’, since many programs do not set any values 
on S0PEN ang expect to find out what the RAT and RFM values 
are from 


v03-012 RASO129 Ron Schaefer 4-Mar-1983 
© not destroy the user's RAT and RFM values for 
indirect PPFs. 


V03-011 JWHO187 Jeffrey W. Horn 15-Feb-1983 
oat yeyene lable to List of items retrieved with 


COOCOCGCOCCCOOCOOCOOCOOOOOoOoOoOOoOoOoOooSoOo 
bc ce ae ae ae | me ae ne nw) | ee | ee ee) we ew ww ww lol awl ol olololelolololelalelelolelelelololololololeolalo! 
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V03-010 KBT0485 Keith B. Thom 4-Feb-1983 
Deallocate all pages off the. fab free List 
v03-009 KBT0473 Keith B. Thompson 24-Jan-1983 
Fix kbt0469, mente the correct size to RMSRETSPC. 
v03-008 KBT0469 Keith B. Thompso 24-Jan-1983 
Deallocate the ws on indirect ppt open 
v03-007 KBT0432 Keith B. Thompson 3-Dec-1982 
3 Change the way the device name is stored in shrfilbut 
0 v03-006 KB10407 Keith B. Thompson 10-Nov-1982 
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v04= ~SEeIRRS FB:58:48 PARC VSS Macro yOKeOD «= (Page 


in order to make the AME and compatibility mode work. 


v02-038 KPL0002 Peter Lieberwirth 15-Nov-1981 
Fin RASO045 to not use FWAST_XLTBUFF1 in RMSASSIGN. 
Use unnamed space at end of first page instead. 
(Fix this better ASAP!) 


v02-037 RASO Ron Scheefer 11-Nov-1981 
Complete KPLO001 by Snare the reference from 
FWAST WILD to FWAST SHRFILDEV 


- Also fix bad register 
reference. 


0 198 ; Fix a broken assume (from unfolding fwa) and call new 
3 1 : $getdvi system service 
128 : v03-005 KBT0212 Keith B. Thompson 23-Aug-1982 
139 : Reorganize psects 
44 133 : v03-004 KBT0098 Keith B. Thompson 13-Jul-1982 
4 137 ; Clean up psects 
9009 155; v03-003 KEK0026 Kinnear 23-Mar-1982 
000 136 3 More work Like KEKO 52" “= correctly allow foreign devices 
4 157 ; to have ANSI-"'a neoes Also add b3 ack in NFS to FOREIGN 
44 138 ; brench deleted by RAS 067. 
0000 160: v03-002 RAS0079 Ron Schaefer 17-Mar-1982 
4464 19) : Add translation table mask support (FABSB_DSBMSK). 
0000 188 ; v03-001 RASO080 Ron Schaefer 17-Mar-1982 
0000 164 ; Correct stream format carriage control for indirect PPFs, 
Ba 192 3 both terminals and files. 
0000 167: V02-044 RAS0067 Ron Schaefer 9-F eb-1982 
0000 168; genecrenge execution paths so that FWAS$T SHAE ILDEY 
0000 169 ; is filled in for all devices. This field is used to 
444 109 ; return a canonical device name in NAM$T_DVI. 
0000 1% : V02-043 KEK0022 K. E. Kinnear 2=F eb-1982 
0000 173; Open restrictions on quoted strings to all non-disk 
44 Ve $ (actually non=-DIR) devices. 
0000 176: V02-042 KEK0018 K. E. Kinn 18-Jan-1982 
0000 177; Modifications to allow ANSI -"a"* filespecs only on 
0000 178; magtape devices. Also, remove all reterences to 
4 +44 3 NAM$x_QUOTED and replace with NAM$x_N 
0000 181; V02-041 RASO060 Ron Schaefer 15-Jan-1982 
0000 186 5 Fix temp buffer usage for concealed devices; 
i444 137 8 AR stream PPF terminals to have RAT=CR. 
0000 185: V02=040 RASOOS8 Ron Schaefer 8-Jan-1982_ 
0000 186; Correct concealed device error path so as 
4 ie : SASSIGN errors; and fix bad code saving PuAST  SHRF ILDEV. 
9000 189 : V02-039 RAS0047 Ron Schaefer 18-Nov-1981 
139 : Fix the UIC form of directories under rooted directories, 
192 ; 
198 : 
194 ; 
198 
i: 
198 ; 
301 ; 
13 
@; 


Sooooooooooo 
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V92-036 RASO040 Ron Schaefer 16-0c t-1981 
Implement rooted directories for concealed devices. 
Restructure RMSASSIGN to parse the translation of the 
congeatee d device name, assign a channel to the concealed 
device and set the internal MFD to the DID of the 

root directory. 


v02-035 KPLOO01 P Lieberwirth 7-0¢ t-1981 
Save unit number and device name in FWAST_WILD field for 
later use in ao shared file. 


v02-034 RASO025 n Schaefer 18-Aug-1981 
Allow oer Lieut oe UDF seq org files, except as 
indirect PPF 
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Lename Processing Routine 


++ 
RMSPRFLNM == Filename Processing Routine. 


This routine first sets up various file access and sharing bits, 

then allocates a buffer and bdb to use as a scratch work area for building 
the expanded filename string and soser tec tag with fllacp, calls rm$xpfn 

to expand the filename string, assigns an i/o channel, and finally 
retrieves the device characteristics, filling in the associated 

IFAB and FAB fields. 


If the result of the file name expansion indicates that the file in 
question is an indirectly accessed process permanent file, no i/o 
channel need be eon tgnes. as this has already been done. Instead, 

an ifi is constructed that points this fab at the associated process 
permanent file. This has the side effect of turning a $create call for 
an indirectly accessed process permanent file into an $open. This is 
done by returning to the SOPEN code rather than the S$CREATE code. 


OOOCCOCOoOooo =m 


DOOOOOCOCoOOOCOooO 


If an error occurs, cleanup may be required to 
deallocate the bdb and buffer and deassign the channel. 


SOOOCOCOOCOCOOOCOOOOOOOOOOoOOoOO 


Calling Sequence: 
BSBW RMSPRFLNM 
Input Parameters: 


R11 impure area address 

R10 IFAB address 

RY IFAB address 

R8 FAB address 

RO input error status (only if search List operation) 


Implicit Inputs: 
The contents of the various FAB and IFAB fields 
(see functional spec for details), in particular, 
the various file name specification fields. 
Output Parameters: 
R10 FWA address 
Rg status code (could be RO input status) 
R1 theu R5 destroyed 
none 


Implicit Outputs: 


SOOCOCSCOCOCOOOCSOOSOOOSCOSOSOSoSoSoSooSoSo o 
OOOCCOCOCOSOCO COO COOC OOO COSCSOOSOOOOOOOOOOOOOOOOOO 


Various fab, fwa, and ifab fields are filled in (see 
functional spec for details). 

FWASQ_FIB initialized ; 

device fields in the ifab filled in. 
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: quoted string, where t 


SETGET: 
SETWRT: ator 


AX/VMS 


"Sr$EP=198¢ 70:22:08 ERMS SACIAMOPRELNM CR ane 


RMOPRFLNM.MAR; 1 ( 


Completion Codes: 


Standard rms, in par 
chn, and dme, in odd 
by RMSXPFN. 


Side Effects: 


lar, success, dev, 


ticu 
ition to the codes returned 


See note above on change of Screate into Sopen for indirect ppf. 


RMSPRFLNM: : 


Fill in fac IFAB field from fab handling defaults and setting summary 
write access bit as required. 


FABSB_FAC(R8), IFBSB_FAC(R9) 
$ ; branch if null 
#FABSV_EXE, IFBSB_FAC(R9) ,SETGET ; or if EXE desired 


Entry point for RMSOCREATE (IFB$B_FAC already set) 


RMSPRFLNMALT: : 
BITB 


BEQL 
B1SB2 


SSB 


#F ABSM_UPD!FABSM_DEL! F ABSM_TRN,- 
1FBSB FA C(R9) 


SETW ; branch if not upd. del, or trn 
; ; accessed, Be. imply get access. 
#F ABSM -GET , 1FB$B_ FAC(RY) default et access 
#F ABSM_PUT! F ABSM_UPD ! FABSM_ DEL! FABSM. TRN, 1FBS _FAC(RI) 
20$ : branch if none of the varieties 
3; of write access is specified. 


#IFBSV_WRTACC,(R9) 3 set summary bit 


Go expand file name. 


20$: JSB 


BLBC 


RMSXPFN 


: et fuil alified file name 
RO, 608 : ite 


3 Quit on error 


Check for res sguet wild characters in file name 


; If hy 


; where FWA $0 


BONARE then skip check. 


This can either be ANSI-"'a" filespecs 
reatty holds a quoted eteiee, of or it could be a network 
ere is nothing in FWASQ_N 


#FWASV_WILDCARD, ( 
#FWASV QUOTED, (1 
#°A'® FUASO NAME 
aruAsa_ “NAME +2 (R1 


R10) ,50$ $ don't check if no wilds 
0) 2is 3; don't check if quoted 
cri 0).- i; any *'s in name? 


; if neq yes 


STAPRFLNM PROCESS FILE NAME 16-SEP-1984 00:30:1 AX/VMS Macro Vv04-00 Page 9 
v04 DECLARATIONS -SEP-1984 9:38: 8 CAMS SRCIRMOPRELNM. MAR: 1 . (4) | 
0 75 Locc #*A'%S" ,FWASQ_NAME(R10),- 3; any Z's in name 
i: @F WASQ_NAME+% (R10) 
rs BNEQ 90$ ; if neq yes 
79 ; 
a 0 ; Check for residual ellipses in the directory spec. Related file 
0 1 ; processing should resolve valid uses previously. Unfortunately, 
0 ¢ ; no simple check is possible -- one has to look at each directory 
0 ; spec for the FSCBSV_ELIPS bit. 
0000 385: 
44 § 40$: BBC #FWASV_WILD_DIR,(R10) ,50$ ; don't bother if no wild dirs 
990 f EXTZV #FWASVDIR_CVLS,AFWASS_DIR_LVLS,~; get # of dirs to check 
6009 Hy MOVAQ FWA$Q DIR1(R10),R1 3; ptr to dir descriptors 
0000 390 45$: BS #FSCBSV_ELIPS, (R1),100$ tse. iS a no-no 
0000 91 ADDL2 #8,R1 3 next directory 
0000 8 SOBGEQ R0,45$ 3 while they Last 
0000 9 
0000 94 ; 
0000 95 ; Check for indirect open of process permanent file. 
0000 38 : 
0000 9 
0000 98 508: TSTB FWASB_ESCFLG(R10) ; did we get a ppf flag? 
0000 99 BNEQ ; branch if so 
0000 400 BSBB RMSASSIGN 3; assign a channel 
0000 401 60$: RSB 3; exit 
0000 $06 
464 rey 80$: BRW INDPPF i process indirect ppf file 
0000 405 908: RMSERR WLD ; give wildcard file name error 
0000 406 RSB 
0000 407 ‘ ‘ 
0000 408 100$: RMSERR DIR : give bad directory error 
0000 409 RSB 
0000 410 
0000 411 -ENDC ;STASWITCH 


STAPRFLNM PROCESS FILE NAME 16-SEP-1984 00:30:1 AX/VMS Macro V04-00 P 1 
v04~000 RMSASSIGN, Assign a Channel ~3Eb=} 982 10:39:08 ERMS SRCIRMOPRELNM.MAR; 1 ret (3) 
6 413 -SBTTL RMSASSIGN, Assign a Channel 
414 344 
415 ; 
8 118 ; RMSASSIGN 
09 213 ; Now assign a channel and get the associated device characteristics. 
0 420 ; Assign in MAX( requested mode,caller's mode ) if NFS or UFO set, 
000 421; else assign in exec mode. 
000 4 § : 
4 425 j-- 
8 00 424 
000 425 RMSASSIGN:: 
0000 4 § 
4 2 8 my NDF ,STASWITCH 
+44 2 4 BBS #FWASV_NODE, (R10) ,NTASGN ; branch if network request 
$099 431 -ENDC ;STASWITCH 
0000 $36 
0000 43 
0000 $38 : “ 
0000 435 ; Note: Device name wipe | has been prefixed with an underscore, so 
4 $38 ; assign system service will not attempt to translate it again. 
0000 438 ASSIGN: 
00 DD 44 27) PUSHL #0 3 no mailbox 
0002 123 ASSUME ASSIGNS_MBXNAM €£Q ASSIGNS_ACMODE +4 
01 dD 000 403 PUSHL #PSLSC_EXEC 3; exec mode 
0004 444 
0004 445 ASSUME FABS$V_UFO GE 16 
9 103 ASSUME FABSV_NFS GE 16 
06 AB 03 93 0004 448 BITB #<FABSM_UFO! FABSM_NFS>@-16,F ABSL_FOP+2(R8) 
10 13 0008 449 BEQL 40$ 3; branch it neither ufo nor nfs set 
0 EF QO0A 450 EXTZV #FABSV_CHAN_MODE,- ; replace with requested mode 
0 000c 451 #FABSS_CHAN ayy - 3 
6E 4A A 9000 43¢ FABSB_ACMODES(R8S (SP) ; 
6— OA AI 91 0010 45 CMPB IF B$B-MODE (R9) , (SP) 3 compare with caller's mode 
06 18 0014 454 BLEQU 4 3 maximize 
6—€ OA AD 9A pare oa2 MOVZBL IFBSB_MODE(R9), (SP) ; switch to caller's mode 
OOtA 637 ASSUME ASSIGNS$_CHAN EQ ASSIGNS$_ACMODE~4 
O1A 459 408: ssb #7, (sp) ; set notranslate flop 
20 a9—soOOF O1F 460 PUSHAL IF B$W_CHNL(R9) : get channel # back here 
1 $66 ASSUME ASSIGNS_DEVNAM EQ ASSIGN$_CHAN-4 
00E0 A 7F 1 464 PUSHAQ FWAS$Q DEVICE(R10) ; device name descriptor 
os a E1 : ; re BBC HS ONCEAL_DEV,- ; is this a concealed device 
OOE8 CA 7E 0 : ree MOVAQ FWASO_CONCEAL_DEV(R10) .~j yes replace the descriptor 
— 469 . 


STAPRFLNM PROCESS FILE NAME 1 ~SEP-1984 AX/VMS Macro V04-00 P 11 
04-0 RMSASSIGN, Assign a Channel SEp=198¢ 16529509 LAMS ERCTRMOSRYoWMeaaR:1 29° TE, 
; 420 ASSUME ASSIGNS_NARGS  €Q 4 
00000000 ' 9F 4 FB 472 45$: CALLS Oh -BESYSSASSIGN ; and do the assign 
63 $0 £8 088 «98 BLEC RO“ ERRASG ee 
0 474 
00 475 ; 
8 238 ; Assign succeeded = get and set device characteristics. 
0 478 
0092 30 0038 479 BSBW  GETDEV_CHAR 
5 7By IF NDF ,STASWITCH 
b088 iB 
0038 48 BLBC (R11) ,DIRECTPPF1 
003B 484 
0038 485; 
0038 486 ; Set up fib descriptor. 
0038 487; 
0038 488 
0038 489 RMSSETFIB:: 
0038 490 
43 $3) ASSUME FIBSC_LENGTH LE FWASC_F IBLEN 
0038 495 MOVZWL #FIBSC tebe 4 $Q _F I1B(R10) ; set length of fib 
003B 494 MOVAB FWA$T_FIBBUF(R10),- ; set address of fib buffer 
0038 495 PUAgG O7F 1Be4 6 R10) 3 
0038 496 
0038 497 ERROR: RSB 
0038 498 
0038 499 DIRECTPPF1: 
bose 239 BRW DIRECTPPF ; branch if process-perm file 
0038 206 -ENDC sSTASWITCH 
0038 50 
it abe IF DF, STASWITCH 
49 OOOOO000"EF 00° EO 0038 506 BBS it tt INIT, EXESGL_FLAGS,110$ ; : br if running online 
01 1C AA 91 0043 507 CMPB FWASL _DET_ CLASS(R10), oMOCS DISK ; aves device? 
13 0047 508 BEQL “br if disk 
02 1C AA 91 0049 309 CMPB  =—s- FWASL_DEV_CLASS(R10), wocd_ TAPE ; ot? device? 
3D 6.12 «0040 10 BNEQ 110$ ~ “br ifn 
004F 511 100$: SSB #DEVSV_FOR, IFBSL_PRIM DEV(R9) : Sloulane mount/ foreign 
0053 216 338 #DEVSV_FOR, IFBSL—AS -DEV(R9) ; Simulate mount/foreign 
059 31 CMKRNL_S yA VOL DAL ; set volume vali 
30 50 +€9 68 14 BLBC “RO, ERRA 3; br if verifychan failed 
068 515 $Q10W_ 
ie 516 FUNC = #10$_PACKACK,- 
068 517 EFN = #IMPSC -ASYOIOEFN,- > throw-away efn 
068 H sate CHNL (R9) 
OF 50 «EO tt 1 BLBC Roe ERR br if Q10 failed | 
0 ¢ 0 110$:  $DASSGN_S AS PNANS IFBSW_ cHNL (RO) 
20 Ad = B&SC«QO 521 CLRW = ~IFBSW_CHNL(R9) clear channel number 
05 009A ; RSB 5 t oats 
098 
098 4 ~ENDC ;STASWITCH 
098 5 
098 6 If NDF ,STASWITCH 
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16-SEP-1984 00:30:1 AX/VMS M v04-00 
7 Haat 9 339508 RMS. SRCJRMOPRELNM.MAR: 1 


Assign a channel to the network device and get and set its device 
characteristics. 


NTSASSIGN 3; assign a channel 
RO, ERRASGN ; branch on error 
GEIDEV_ CHAR ; get network device characteristics 
NTSMOD_DEV_CHAR ; modify device characteristics 
; and return to caller 
STASWITCH 


Handle assign error. 


NDF ,STASWITCH 

CHN,R1 ; unspecified chnl assgn failure 
RMSMAPERR ; map error and return to caller 
> STASWITCH 

DF ,STASWITCH 


IFBSL_LAST_FAB(R9) ,R1 
RO, FABSL_STV(R1) 
CHN,RO 


get FAB address 
set STV value 
set R 

exit 


:STASWITCH 


: Kernel mode routine to set volume valid and mark device mounted 
; for use in stand-alone Backup. 


DF ,STASWITCH 
“M<R2,R3,R4,R5> ; kernel mode routine to set valid 
IFBSW_CHNL(R9) ,RO ; load channel number 
a#lOCSVERIF YCHAN ; get CCB address for channel. 
RO Ng :; br if failed 
CCBS$L_UCB(R1) ,R1 * get UCB address from (CB 
#UCBSR_VALID,UCBSW_STS(R1) ; set software valid bit 
#DEVSM_MNT !DEVSM_FOR,UCBSL_DEVCHAR(R1) ; 4 

; set mounted foreign bits 
#1,R0 ; indicate success 


; return 
sSTASWITCH 


+++ $4 + $+ + $+ 
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“SEP-1984 16:2 
-SBTTL GETDEV_CHAR = Determine t 


16-SEP-1984 00:3 


O45 AX/VMS Macro V04-00 
:0 RMS .SRCIRMOPRFLNM.MAR; 1 


he device characteristics 


Page 


Subroutine to get and set device characteristics. 


RO-R2 destroyed 


The device characteristics wanted are: 


DVIS_DEVCHAR = I 
DVIS— ope vehas (sec) = I 
DVI$_DEVBUF SIZ = I 
DVIS-DEVBUFSIZ (sec) = I 
DVIS_DEVCLASS = F 
DVIS_ FULLDEVNAM => F 
DVI$— Ba gs dae (sec) = F 
DVIS_DEVLOCKNAM => F 
DVIS_RECS = F 


GETDEV_CHAR: 


Create item List on stack 


MOVL _— SP, R2 
PUSHL #00 


: Create item for devchar value 


PUSHL #00 
PUSHAL IFBS$L_PRIM_DEV(R9) 
PUSHL #<DVIS_DEVCHARA16>+4 


Create item for secondary devchar value 


PUSHL #00 
PUSHAL IFBSL_AS_DEV(R 
PUSHL 


Create item for devbufsiz value 


PUSHL #00 : 
PUSHAL IFBSL_DEVBUFSIZ(R9) : 
PUSHL &#<DVIS_DEVBUFSIZa16>+4_ ; 


R9) n buffer 
#<<DVI$_BEVCHAR! DVISC “sekonete sate fet : 


T~ SHRF ILBUF ah ot to by shrfil) 
T-AS_SHRFILBUF (pointed to by 
sr. a LCKNAM (pointed to by 


save addr to calculate size 
mark end of List 


3; return size 
; return buffer : 
; item code and buffer size 


Ad een size 


return size 
return buffer 
item code and buffer size 


Create item for secondary devbufsiz value 


PUSHL #00 ; 


return size 


as_shrfi 
sirfil_ 


item code and buffer size 
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v04-0 én GETDEV_CHAR = Determine the device chara g- “-SEP- -198¢ 839508 FRMS  SRCIAMOPRELNM. MAR: 1 - (6) 
oop 0 OF F PUSHAL IFBSL_ASDEVBSIZ(R9) > return buffer 
00090004 8F DD ; PUSHL #<<DVI$_DEVBUFSIZ!D bvisc_SeCONDARY>alose4; item code and buffer size | 
F 3 
‘ : Create item for devclass value 
00 oD PUSHL #00 3; return size 
1C AA OF PUSHAL FWASL_DEV_CLASS(R10) 3; return buffer 
00040004 8F DD PUSHL #<DVIS_DEVCLASS@16>+4 =; item code and buffer size 


Create item for devnam string 


0190 CA 3F PUSHAW FWA$Q_SHRFIL(R10) 3; return size 
0194 CA ODD PUSHL FWAS$Q~SHRFIL+4(R10) : return buffer 
00E80010 8F DD PUSHL ecov i FULLDEVNAMa@16>- 
+FWASS_SHRF ILBUF ; item code and buffer size 
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0198 CA 3F 666 PUSHAW FWASQ_SHRFIL_LCK(R10) ; return size 
019C CA ODD 667 PUSHL FWASQ-SHRFIL-LCK+4(R10) ; return buffer 
OOFO0010 8F ODD 668 PUSHL #<DVIS_DEVLOCKNAMA@16>- . 
+FWASS_SHRFIL_LCKNAM ; item code and buffer size 


MSW O OONAUEWWN-4 0 OONOUS Wn ss 
-F 


01A0 CA 3F PUSHAW FWA$Q_AS_SHRF ; fore size 


IL(R10) 
QO1A4 CA DOD PUSHL FWASQ- AS” SHRFIL R10) urn buffer 
00E90010 8F ODD PUSHL #<<DVT$ FULLDEVNAM!DVISC_ * SECONDARY>@16>~ 
+FWAS$S_AS_SHRF ILBUF item code and buffer size 
: Create item for recsiz value 
00 OD PUSHL #00 3 return size 
20 AA OOF PUSHAL FWASL_RECSIZ(R10) ; return buffer 

00180004 8F ODD PUSHL #<DVIS_RECSIZa16>+4 : item code and buffer size 


Create item for volume Label 


COOOOOCOOCOOOSOOOOSSGOOOOSSOSOSOOCOOOGOCOSOOOOOOOOOCOCOSCOSOOCOOOSOOOOOOO <M 
na kk tk at = = 2 = = = = = SS I I3OOOOOOOO 1 
MAE BE BWW AWWW WWIII PoPoNoNonoNononofo 2 2 SS SS Ss OOO COO COOOOTmN™ 

SO 8 ORE EEE ELEM POOAAAAOOOMOMOWOODOOIMP SP PPP PHL TMM TOW IFT 


CNAME WN 0 OONOUES WN O OONOULSWN—O”O 


PR2AEAXRXAPALAPAAA A AAA AAA AAA AAAS AA OSA AO 
DOO O0O0O0 000000000009 09 0909008 SINS SN NNO 


00 DD PUSHL #00 3; return size 
0920 CA DF PUSHAL FWAST VOLNAM(R10) ; return buffer d 
0022000¢ ef DD PUSHL #<DVIS_VOLNAMa16>+12 ; item code and buffer size 
1 08 MOVL ‘ 3; save addr for call 
—E 0 C SUBL2 #8,SP : make iosb 
50 SE 00 MOVL P, ; save addr for iosb 


SP,RO 
SGETOVIW_S - 


g 7 
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v04- GETDEV_CHAR = Determine the device chara 5-SEP-1984 16:22: RMS .SRCJRMOPRFLNM.MAR; 1 (6) | 
154 699 CHAN = IFBS$W_CHNL(R9),- ; 1/0 channel number | 
154 99 EFN = #IMPSC"ASYQIOEFN,-; throw-away efn 
154 = 701 10SB = (RO),= ; losb for synchronizing 
136 f j ITMLST = (R41) ; item List 
SE 52 09 168 704 MOVL R2,SP ; restore stack 
OF 5 E 19 705 BLBC RO,ERRASGN1 3 exit on error 
1 Pp6 
0171 707 ; 
0171 708 ; Subtract one from the device name sizes in order to get rid of the ‘':"' 
O17 8 ; at the end of the name 
0190 CA B7 0171 «#711 ° DECW  FWASQ_SHRFIL(R10) 
O1A0 CA B87 8128 at DECW FWASQ_AS_SHRFIL(R10) 
0179 §=714 If NDF ,STASWITCH | 
0179 =715 
0179 716; . | 
0179 717 ; Deal with FOREIGN devices in a separate code section. They all allow ANSI-"'a’’ 
0179 718 ; names, so don't worry about checking them. 
O179 920 
0179 rst BBS #DEVSV_FOR, IFBSL_PRIM_DEV(R9) ,FOREIGN ; branch if dev mntd foreign 
0179 sé BBS #FABSV_NFS+FOP, (R8) FOREIGN ; branch if non-file-struct. 
0179 72 BBS #DEV$V~SQD, IFB$L_PRIM_DEV(R9),10$; branch if magtape 
8128 ise BBC #DEVSV_DIR, IFBSL_PRIM_DEV(R9),10$; branch if not dir device 
0179 158 : : 
0179 727 ; At this point we are sure that we are not using an ANSI magtape device. 
0179 728 ; Check to see if we have an ANSI quoted string in the FWA, denoted by | 
0179 44 ; FWASV_QUOTED set and FWASV_NODE not set. 
0179 §=9730 ; 
0179 = 731 
0179 Ug BBC #FWASV_QUOTED,(R10),10$ ; quoted not set | 
818 I BBC #FWASV-NODE, (R10) , 208 3 networking, no problem 
0179 #8735 -ENDC ;STASWITCH | 
0179 #736 é 
05 0179 737 108: RSB 3 exit | 
017A 386738 ca bo 
017A 739 208: RMSERR FNM : error in file name | 
05 O17F 740 RSB | 
0180 741 


eee eee Se 
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SS F | 
V_CH 
1 743 | | 
} eee IF NDF ,STASWITCH 
1 reg ; User has requested non-file-structured operations (via the nfs fop bit) | 
: 8 i ; or device was mounted foreign. | 
1 § Pe: ; Clear the ‘dir'’ and 'sdi' device characteristics (directory, single directory) 
1 750 ; and set the ‘for’ device characteristic (foreign) and set up various other 
180 751; file attributes. 
0180 738 
01 75 
4 Q 754 FOREIGN: 
180 755 BICB2 #DEVSM_DIR!DEVSM_SDI,IFBSL_PRIM_DEV(R9); say no directory 
0180 136 SSB #DEVSV-FOR, IFBSL_-PRIM_DEV(R9); cay foreign device 
0180 75 BBC #DEVSV_SQD, IFB$L_PRIM_DEV(R9), ND; branch if not magtape 
0180 758 MOVZWL FWASL_RECSIZ(R103,R1 ~ ; Hub session Yeon muunt 
0180 759 BEQL SETREC : branch if not speced 
0180 760 BBC #IFBSV_CREATE,(R9),10$ ; branch if doing open 
0180 761 
0180 166 3 : 
H+ 83 ; This is create. Only allow blocking if rfm=fix and mrs = recordsize. 
0180 765 | 
0180 766 CMPB FABSB_RFM(R8) ,AFABSC_FIX; rfm = fix? | 
0180 767 BNEQ SETREC 3 branch if not 
0180 768 CMPW FABSW_MRS(R8) ,R1 3 same size? 
0180 769 BNEQ SETREC ; branch if not 
0180 770 10$: MOVW R1,1FBSW_MRS(R9) ; set fixed rec size from 
0180 771 mount parameter. 
0180 re BICB2 #DEVSM_REC,IFBSL_PRIM DEWRS); . ear ‘unit rec’ char. | 
0180 77 BRB SETFIX™ 90, t fixed record Length 
0180 774 CHKRND: BBC #DEVSV_RND, IFBSL_PRIM DEV( 9), SETREC: branch if not disk | 
0180 775 MOVW IFBSL BEVBUFSIZ(R9), IFBSwW -ARSERD) 3; say fixed 512 records 
0180 76 MNEGL #2,1FBSL_EBK(R9) : ay ta e eof blk | 
0180 77 3 iR 1CRE TE increments this) 
0180 778 MNEGL #1,1FBS$L_HBK(R9) 3 say Large allocation | 
0180 779 SETFIX: MOVB #FABSC_FIX,IFBSB_RFMORG(R9); say fixed records Len. 
0180 780 MOVW IFBSW_ARS(RO) ,IFBSW_LRL(R9); set fixed rec len. 
0180 781 BRB EXIT 3; continue 
0180 ree SETREC: BISB2 #DEVSM_REC,IFBSL_PRIM DEV(R9); say mt is unit rec 
0180 783 EXIT: BBS #1FBSV_BIO,IFBSB_FAC(R9),10$; branch if block i/o 
0180 784 SSB #IFBSV~BRO,IFBSB~FAC(R9): allow block i/o functions 
0180 785 10$: RSB 
018089 
180 7 -ENDC ;STASWITCH 
0180 788 
0180 789 ERRASGN1: 
FFI8 31 0180 790 BRW ERRASGN 
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G6 7 
E NAME 16-SEP-1984 00:30:1 AX/VMS Macro V04-00 P 1 
R = Determine the device chara 873 p= 1984 98:39:08 RMS.SRCJRMOPRFLNM.MAR; 1 pee a | 
79 | 
IF NDF ,STASWITCH 


Process=Permanent File = check device characteristcs for terminal 
and if so reassign the channel in super mode. 


yee 
an 


wien Saves device characteristics to indicate get/put access 
via dev. 


| 
DIRECTPPF: | 
BBC #DEVSV_TRM, IFBSL_PRIM_DEV(R9) ,SETDEV 

| 


~ 
OOooowowowowowvowvowo 
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Process pee file is a terminal - reassign channel in super mode 
retain the exec mode channel until we have a super mode channel, 

so that the virtual terminal ucb will not disappear. This, 
unfortunately, has the property that the user can get a spurious 

no more channels error. 


MOVW IFBSW_CHNL(RY) ,R2 3; save exec channel number 
SASSIGN_S - 

FWASQ_DEVICE(R10),- 

IFBSW_CHNL(R9) ,- 

#PSL$C_SUPER y 
MOVL RO,R3 3 preserve assign status code 

N_S R2 ; return the exec mode channel 

BLBC R3,ERRASGN1 


Assume no change in dev chars; hence no need to reprocess. 


If FABSV_GET rot set in fac, clear DEV$V_IDV. 
If FABSV_PUT not set in fac, clear DEV$V_ODV. 


; branch if ‘get’ on 


0.09 09 C9 00 0d 0d Od Cd Od Cd 09 CD OD 09 09 09 0D G9 CD OD 00 OD OD GD OD 05:00 OD CD 0D C9 OD CD CD CD CD CD C0 0909 SII III 
SF AANWIAAUAIUAIAIWIIPIPIPINIPININPININID 2 2 OO OO SY MS COOOO 


SETDEV: BBS #FABSV_GET, I1FB$B_FAC(R9) ,10$ 
3 CSB #DEVSV~IDV, IFBSL-PRIM_ DEV(RO | 
3 CSB #DEVSV~IDV. IFBSL-AS_DEV(R9) | 
ASSUME FABSV_PUT EO 0 | 
10$: BLBS jrese FAC(RY) ,20$ : branch if ‘put’ on 
CSB #DEVS$U_ODV, IFASL_PRIM_DEV(R9) 
CSB #DEVSV~ODV, IFBSL-AS_DEV(R9) 
208: BRWw RMSSETFIB 3 return to main Line 
: -ENDC =; STASWITCH 
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16-SEP-1984 00:30:1 AX/VMS Macro v04-00 Page 1 
98:39:08 LRMS SRCIRMOPRFLNM_MAR; 1 . (8, 
IF NDF ,STASWITCH 
Handle indirect open of process permanent file. 
Perform various checks to see if operation possible. 


(Note: This routine has the side effect of turning a $CREATE 
on an inidrect process permanent file into an SOPEN) 


INDPPF : 
STSTPT INDPPF 
ASSUME FABSV_UFO GE 16 
ASSUME FABSV_NFS GE 16 


Check for various invalid options. 


BITB #<F ABSM_UFO! F ABSM_NF S>a-16,F ABSL_FOP+2(R8) 

BNEQ ERRF OP : branch if ~ specified 

TSTB FWASB_ESCTYP(R10) : pecans type 0? 

BNEQ E branch if not (not Legal) 

CMPZV aby #2,FWASW_ESCIFI(R10), *WBI0S escape ifi indicate a ppf? 
BNEQ ERRLNE : branch if not 


Get address of process permanent file IFAB and check it out. 


MOVL R9O,R7 ; save ifab addr 

ASSUME FABSV_PPF_IND~ GE 8 

BISB2 #FABSM_PPF inpe-$. FWASW_ ESCIFI+1(R10); get non-privileged ppf ifi 
MOVZWL FWASW_ESCIFI(R10),R9 3; and move it to r9 

MOVL #imPsc_ et latoeys. RO ; ifab table offset/4 

PUSHL R11 ; save japure area pointer 

BSBW RASGTIADR ; get ifab address 

POPR faei’ : restore image uae ete (save cc's) 
BEQL ERRIFI 3; branch if 7 »bPt fab 

CMPB Fr BSB BID(R9) ,MIFBSC_BID; is it an 

BNEQ ERRBG3 : really Bad 3 not! 


Got ppf IFAB o.k. 

Insure org is sequential and rfm is not UDF 

(Note: User fac is ignored. Each operation will be checked.) 
ASSUME FABSC_SEQ EQ 0 


TSTB IFBS$B_ORGCASE(R9) : seq file org? 
BNEQ ERRORG branch if not (not supported) 


1 7 
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v04-000 GETDEV_CHAR = Determine the device chara ets 9:33:08 CAMS SRCTRMOPRELNM MAR: 1 we (12) 
99 
9 ASSUME FABSC_UDF EQ 0 
8 TSTB I1FBSB_RFMORG(RYI) ; undefined format? 
9 BEQL ERRRFA ; branch if so (not supported) 


: Check for valid rat value: must be only one of cr, ftn, or prn. 
; If prn set in rat must also be set for real file. 


Isolate carriage control bits 


CLRL R1 : zero-extend the field 

BICB3 #255\<FABSM_CR!FABSM_FTN!FABSM_PRN>,FABS$B_RAT(R8),R1 
BBC #DEVSV_ODV, TFBSL_PRIM_DEV(R9).5$; branch Tf input only 
BC #F ABSV_PRN,R1,5$ ;_branch if not prn 

BBC #F ABSV~PRN, IFA$B_RAT(R9) .ERRRAT; branch if ppf not prn 
ASSUME FABSV_FTN EQ 0 

ASSUME FABSV_CR EQ FABSV_FTN+1 

ASSUME FABSV_PRN £9 FABSY_CR+1 


5$: BBC R1,1°#*B00010111,ERRRAT ; branch if more than 1 ccl attr 


OOOOOOOOOOOVOOVOOVOOOOOOO 


> Check for ppf IFAB busy setting busy if not in use. 


10$:  BBCS  #IFBSV_BUSY,(R9),IND_PPF_OK; branch if not busy 


WANINONONONONOMONONOND 2 2 2 3 3 = OOOO 


ERRFOP: 
— FOP ; invalid fop bits for ppf 


ERRLNE : 


— LNE invalid equivalence string 


ERRBG3: RMSTBUG FTL$_BADIFAB invalid ifab 


ERRIFI: 
RMSERR IFI ; invalid equiv. string ifi 
BRB RESTORE_IFAB 
ERRORG: 
RMSERR ORG ; ppf not sequential org | 
BRB RESTORE_IFAB 
ERRRFM: 
RMSERR REM : ppf UDF format 
BRB RESTORE_IFAB | 
ERRRAT: | 
RMSERR RAT ; bad rat value 


ee ee a ee ee ee a a a ee el ee ee a a ae a a a a a a ed a a 
HAAN AWI NAAN AIAN WANA WANNA AINA NIAAA AIAN AINA NANNY 


2.00.09.09.00 Gd Cd 0d C0 Cd Od Cd 09 Cd Cd OD Od OD Cd Cd OD OD GD Cd OD CD OD Cd OD CD CD OD CD Gd GD CD CD OD CD Cd CD GD CD CD CD. GD CD CD CD CD CO. CD. CD CD CD OD CD 


MEAN OOD NAW WN OS OOO NAW EWN SO OOO NAM EWN OC OD NOAU EW O OONOUS 


WDODOOOOOOOOOOOOOOOOOOOOOOOOOOODO 


SOOOCCOOCCOOCOOCOOCOOCOCOCOCOSOCOOSOOOOOOOCOCCSCSOCOCOODBDOOCOOOOOCOOCOOCOOOOOOCOO <M 
PUPP BS BS BS BEE EAI 


RESTORE_IFAB: 
MOVL 


R7,R9 


restore temp. ifab addr 


& Ff 


STAPRFLNM PROCESS FILE NAME 16-S 4 AX/VMS Macro V04-00 
¥04-000 GETDEV_CHAR = Determine the device chara 87365 71982 98: 38: 0 CAMS. SRC JRMOPRFLNM.MAR; 1 

} 928 RSB 3; go handle error 

es 

1 ERRNAM 

1 960 POPR #*M<R1> ; get ppf ifab addr 

1 961 CSB #1FBSV_BUSY,(R1) ; clear busy 

at 3e8 RSB ; go clean up 


| 
| 
aad 


ne ies aA TAS aie aac ae tation ND 


STAPRFLNM PROCESS FILE NAME 16-SEP-1984 00:30:1 AX/VMS Macro Vv04-00 Page 21 
v04 GETDEV_CHAR = Determine the device chara gree bn 984 98:33:09 RMS .SRCJRMOPRFLNM.MAR; 1 (14) 
1 5 
1 deg 3 
1 967 ; The indirect open of the process permanent file is permtsseble. LI 
} 308 ; switch to using the ppf IFAB for the remainder of this open. Ll 
1 39 ; Must perform the following: Ll 
1 971 ; Ll 
1 3f¢ : 1. Set ppf_image bit. Ll 
1 973 ; 2. Copy caller's mode and arg List address to the ppf ifab. Ll 
1 974; (Note: there will be no asb because no stall can have occurred.) Ll 
1 975 ; 3. Return the temporary ifab and fwa. Ll 
4 976 ; 4. lero the ifi table entry to temporary ifab. Ll 
1 977 ; 5. Move address of pio impure area to rill and copy saved sp Ll 
O18 978 : to pio impure area. LI 
1 979 ; LI 
Hy 980 LI 
01 981 IND_PPF_OK: ul 
Hy oB8 SSB #IFBSV_PPF_IMAGE,(R9) ; indicate indirect processing Ll 
01 98 ; of ppf Ll 
0183 984 MOVB IFB$B_MODE(R7), IFBSB_MODE(R9); save caller's mode Ll 
0183 985 MOVL § IFBSLIARGLST(R?),IFBSL_ARGLST(R9); and arg List addr LI 
0183 986 PUSHL R9 ; save ppf ifab addr Ll 
0183 987 Ll 
0183 oRs : Ll 
0183 989 ; Fill in name block, if any, with resultant string and dvi. Ll 
eH 990 ; Ll 
018 991 Ll 
0183 99 MOVL R7,R9 : restore temp ifab addr Ll 
0183 99 BSBW sa RMSFILLNAM : fill in nam blk if any ul 
0183 994 BLBC RO, ERRNAM 3; branch on error Ll 
Het 995 MOVW FWASW_ESCIFI(R10) AP ; save ifi code Y Ll 
018 996 BSBW RASOE ALLOCATE PUA ; deallocate fwa_and associated struct. Ll 
Het 997 MOVL ROR 3; ifab addr to r3, Ll 
018 998 MOVL RO,RS ; 4 for retblk Ll 
0183 999 BSBW RMSRETBLK : deallocate ifab ul 
0183 1000 Ll 
0183 1001 ; Ll 
018 1308 ; return all pages used Ll 
0183 1003 ; Ll 
Big 1004 Ll 
01 1005 SUBL3 #8,R9,R10 : get ifab list head Ll 
gis ! 8 MOVL (R10) -R4 ; get first hole (must be there - ifb) MH 
O18 1 4 1$: PUSHL (R4) ; save forward pointer Ll 
1 1009 CMPL 8(R4) ,#504 ; hole should be at least a page (-header) | Ll 
01 1010 BLSSU DEALLERR 3; some one goofed Ll 
4 1011 BSBW RMSRETIPAG 3 return it Ll 
1 1 \ POPL RG 3; restore pointer to next hole Ll 
1 101 CMPL R4,R10 3; all done? Ll 
: : i BNEQ 1$ 3; do next | tH 
1 1 16 BSBW RMSZAPIF I 3; zero ifab table entry Ll 
1 101 MOVL (SP)+,R9 3; restore ppt ifab addr Ll 
: ' 18 MOVL R9,R16 ; copy to rl0 Ll 
| 
1 1 $0 3 
183 1021 ; Copy saved sp value. 
| 
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L 
LE NAME Terese SEP-1 38 
R = Determine the device chara 5-SEP-1984 


< 98:30:08 ERMSVSACIRMOPRLNMcMAR:1 29° Gj 


MOVL  IMPSL SAVED SP(R11) ,a#P1OSGW_PIOIMPA+IMPSL_SAVED_SP 
MOVAW  a#P1OSGW_PIOIMP Arif ; get pio impure area addr 
: Output the new ifi value and bls field to fab. 


MOVW IFBSL_ASDEVBSIZ(R9), FABSW -BLS(R8); default buffer size 
POPL RO 3” pop return pc 


If user specified stream format but RAT=0, force RAT=CR 
to get proper output. 


CMPB £A5se_ RFM(R8) ,AFABSC_STM ; user agye it iee stream format? 


BLSSU anch if not 
BITB #<FABSM CREE ABSM_ FIN! FABSM. PRNS 
FABSB_RAT(R8 ; User  eeesttted RAT? 
BNEQ py 3; bra ony Hi so 
SSB #FABSV_CR,FABSB_RAT(RS8) ; hw T=CR 
5$: INSV FABSB RAT( sate #PFABSV _PPF_RAT, GEABSS. PPF_RAT,AP; save rat in ifi 
MOVW AP, FABSW_IFI(R8) 7 construct non=priv. ifi 


pats the real rat and rfm values for the file, except 

it this is a unit record device and the user has not specified 
pri nt file carriage control, return rfm=var and don't change the 
user's rat field. 


Sete Ge S+ Se te 


ASSUME DEV$V_REC EQ 0 
BLBS IFBSL_PRIM_DEV(R9),20$ ; branch if unit record 


10$: BRW RM$CO 9°, finish up open 
20$: BBS #F ABSV_PRN+F ABSV_PPF PAT AP 2108; branch if user specifed 
nt file carriage ctl. 
MOVB #F ABSC VAR. FABSB _RFM(RB): change rfm to var 
BRwW RMSCOPRTN ; finish up open without 
; altering user's rat 
DEALLERR 


RMSTBUG FTL$_DEALLERR 
-ENDC = ;STASWITCH 
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a 7 
NAME -SEP-1984 00: AX/VMS Macro V04-00 P 
- Set device shivesterta.. -SEP-1984 4 98 +39: 08 FRMS SRCITRMOPRELNM MAR: 1 — (i 5) 


~SBTTL RMSRET_DEV_CHAR = Set device characteristics into FAB 


Set the associated device characteristics into the FAB. 
The following algorithm is used to determine the characteristics: 
rereren-peatee device 
FABSL 


DEV = FABSL SDC = IFBSL_AS_DEV 
Spooled devices: 


pasar DEV = IFBSL_AS_DEV 
L-SDC = IFBSL_PRIM_DEV 
Network see leber 
s determined by 
Indirect PPF $1. Bey uential i 
FABSL_DEV = IFBSL oyncess DEV noditied to be a record device: 
DIR, FOD, oe » SDI, SQD cleared 
REC, CCL s 
FABSL_SDC = IFBSL wt DEV 
ALL etter normal devices: 
FABSL_DEV = IFBSL _PRIM_DEV 
FABSL_SDC = IFBSL_AS_DEV 


If device is foreign, move AS_DEV charac terseties into both FAB 
characteristics words, since the PRIM_DEV has been altered for 
internal RMS processing requirements Te.g. DIR has been cleared, FOR 
may have been set because of NFS, etc.). 


Se Se Ge Ge Ge Ge Ge Se Se Se Ge Ge Ge Ge Ge Ge See Se Se Sse SeSe Se Sse Se Ge Se 
+ 


RMSRET_DEV_CHAR:: 


MOVL IFBSL_PRIM_DEV(R9) ,FABSL_DEV(R8B) 3; set prim dev char 

MOVL IFBSL_AS_DEV(R9) ,FABSL_SBC(R8) 3 set secondary dev char 

BBS #DEVS$T FOR, IFBSL_PRIM BEV(R9) ,10$ ; diff if foreign 

BBC #DEVSV-~SPL,IFBSL-AS_DEV(R9) ,20$ : okay if not spooled 

MOVL IFBSL _PRIM *DEV(RO) , FABSL SDC (RB) 3; set alt dev. char. 
10$: MOVL IFBS$L_AS_DEV(R9) ,FABSL_DEV(R8) ; set alt dev. char. 

ASSUME FABSC_SEQ EQ 0 


20$: TSTB {LGS8 ORSCASE CAPD sequential oe org? 
BNEQ 0$ 


; branch if n 


; If this is an indirect process-permanent file, set up the device characteristics 
: to make it look Like a unit record device. 


BBC #IFBSV_PPF_IMAGE,(R9) ,30$ : branch if not indirect ppf 

BICL2 #DEVSM~DIRTDEVSM_ FOD!DEVSM : clear file characteristics 
'DEVSM_ SDI 'DEVSM— “SQD,F ABSL_ Bey «RB» 

BISL2 #DEVSMREC'DEVSM~ _CCL,= : and set unit record chars. 


FABSL_BEV(R8) 


; Network specific code 


: 


N 7 


STAPRFLNM PROCESS FILE NAME 16-SEP-1984 00:30:12 VAX/VMS Ma 
v04- RMSRET_DEV_CHAR = Set device characteris ade 7 93:39:05 RMS.SRCIR 
186 1127 ; 
1B6 11 8 
1B6 1129 30S: 
186 1 9 IF NDF ,STASWITCH 
186 11 : BBC #IFBSV_DAP, (RO) ,40$ 
0186 11 CLRB —s LF B$B_ORGCASE(R9) 
0186 1134 
01B6 1135 
0186 1136 JSB NTSRET_DEV_CHAR 
01B6 1137 
0186 1138 -ENDC =; STASWITCH 
1B6 1139 
05 0186 1140 40$:  RSB 
01B7 1141 
0187 1148 
01B7 114 END 


v04-00 P 4 


r 
OPRFLNM.MAR; 1 


branch if not network oper 
zero orgcase to subsequent 
force rel and idx file op 
thru sequential code!!! 
return real device char to 


| 
eee 


if they were returned by 


STAPRFLNM 
Symbol table 
$$.PSECT_EP 
SSARGS 
SSRMSTEST 
SSRMS_PBUGCHK 


$SRMS ~ TBUGCHK 

$SRMSUMODE 

$$11 

ASSIGN 

ASSIGNS_ACMODE 
IGNS~CHAN 


ASSIGNS _MBXNAM 
ASSIGNS _NARGS 


DEV$V_SPL 
DVISC SECONDARY 


FAB 
F ABSS~CHAN_MODE 
F ABSV~CHAN-MODE 
FABSV NFS 

F ABSV—UFO 

FOP 


PROCESS FILE NAME 
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Zr HHH HME cece ece 
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O$_PACKACK 
OCSVERIFYCHAN 
L$C_EXEC 
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STAPRFLNM 


PROCESS FILE NAME i 
Psect synopsis -S 


1984 00:30:12 VAX/VMS Macro v04-00 Page 26 
984 16:22:09 LRM SRCIRMOPRELNMMARS 1 (15) 


PSECT name Allocation PSECT No. Attributes 

«§ OS « 00000000 < 0.) 00 ¢ QO.) NOPIC USR CON ABS LCL ot re NOEXE NORD NOWRT NOVEC BYTE 
RMSRMSO 000001B7 ( 439.) 01 ¢ 1.) PIC USR CON REL GBL NOSHR EXE RD NOWRT NOVEC BYTE 
SABSS 00000000 0.) O02 ¢ 2.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 


foeweeccceseseesoseccoeses$} 


Initialization — 40 00:00:00.08 00:00:00.84 
Command processing 138 00:00:01.0 00:00:05.90 
Pass 1 503 00:00:20.45 00:00:55.01 
syabo} table sort 0 00:00:03.25 00:00:03.90 

ass 2 193 00:00:04.53 00:00:11.33 
Seeker table output 13 00:00:00.13 00:00:00.15 
Psect synopsis output 2 00:00:00.02 00:00:00.05 
Cross-reference output 0 00:00:00.00 00:00:00.00 
Assembler run totals 891 00:00:29.49 00:01:17.18 


The working set Limit was 1950 pages. 

113895 bytes (223 pages) of virtual memory were used to buffer the intermediate code 
There were 120 pages of symbol table space allocated to hold 2215 non-local and 14 local symbols. 
1145 source Lines were read in Pass 1, orogyc ing 16 object records in Pass 2. 


37 pages of virtual memory were used to define macros. 


ee 


Macro library name Macros defined 
~$255$DUA28: th OBJIRMS. “aH 1 10 
~$255$DUA OBJJLIB.MLB;1 3 
“$5 ee SFU ASB: eye IBISTARLET. MLB;2 19 

TOTALS (all Libraries) 32 


| 

Phase Page faults CPU Time Lapsed Time 
2440 GETS were required to define 32 macros. 
| 


There were no errors, warnings or information messages. 
MACRO/LIS=L1IS$:STAPRFLNM/OBJ=OBJ$:STAPRFLNM MSRC$:STASW/UPDATE=(ENHS: STASW) +MSRC$:RMOPRFLNM/UPDATE=(ENHS: RMOPRFLNM) +EXECML$/LIB+L IBS 
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